home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8504a.d64
/
listing 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
828b
|
24 lines
100 REM *******************************
110 REM * BEISP.FUER PARALELLAUSDRUCK *
120 REM * ZWEIER GRAPHIKSEITEN *
130 REM * MIT DEM SEIKOSHA GP-550AVC *
140 REM * (ERWEITERBAR AUF DREI *
150 REM * GRAFIKSEITEN *
160 REM *******************************
165 :
170 POKE49531,96 : REM ZEILENOPTION EINSCHALTEN
180 PG=7:M3=0 : M4 = PG*2*16 : REM PG = GRPAHIKSEITENKENNZIFFER
185 SYS49152,0,1,0 : REM HARDCOPY STARTEN
190 FORZ=1TO25 : REM 25 ZEILEN (EINFACHE LAENGE)
200 REM ZEIGER AUF DIE ERSTE GRAPHIKSEITE ZWISCHENSPEICHERN
210 M1=PEEK(209) : M2=PEEK(210)
220 REM AUF ZWEITE GRAPHIKSEITE UMSCHALTEN
230 POKE209,M3 : POKE210,M4
240 SYS49398 : REM HARDCOPY-EINSPRUNGADRESSE
250 REM ZEIGER AUF ZWEITE GRAPHIKSEITE ZWISCHENSPEICHERN
260 M3 = PEEK(209) : M4 = PEEK(210)
270 POKE209,M1 : POKE210,M2 : REM AUF ERSTE GR.SEITE ZURUECK
280 SYS49532 : REM AUSDRUCKEN
290 NEXTZ
300 END